home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 November / 64er_Magazin_93-11_1993_Markt__Technik_de_Side_A.d64 / listing 2 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  487 b   |  17 lines
  1. 160 rem -- version 2: persoenliche bestenliste --
  2. 270 open1,8,2,"bestenliste/p,s,r
  3. 500 :
  4. 510 [129]i[178]1[164]15
  5. 520 [139]na$(i)[178]na$[167]540
  6. 530 [130]:[137]610
  7. 540 [139]pu(i)[179]pu[167]565
  8. 550 [153]:[153]"leider waren sie schon einmal besser:
  9. 560 print"sie hatten schon mal"pu(i)"punkte.":goto310
  10. 565 print:print"damit uebertreffen sie ihren bisherigen
  11. 567 [153]"persoenlichen rekord von"pu(i)"punkten.
  12. 570 ifi=15then590
  13. 580 pu(i)=pu(i+1):na$(i)=na$(i+1):i=i+1:goto570
  14. 590 pu(i)=0:na$(i)="(leer)
  15. 860 [159]15,8,15,"s:bestenliste/p":[160]15
  16. 870 [159]3,8,2,"bestenliste/p,s,w
  17.